<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.5</name>
<id>-1</id>
<cardCount>53</cardCount>
<cardID>18126</cardID>
<listID>2932</listID>
<cantModify><true /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>-- Support Tools eXternals 1.2.5-- copyright © 1989, 1990, Apple Computer, Inc. All rights reserved-- last modified 7:59 PM 11/13/90 ec--on openStackset userModify to trueend openStackon openCardif the short name of this cd = ¬the short name of cd (number of last cd of this bg) thenhide bg btn "next"elseshow bg btn "next"end ifif the short name of this cd = ¬the short name of cd (number of first cd of this bg) thenhide bg btn "previous"elseshow bg btn "previous"end ifpass openCardend openCardfunction clickLine-- returns line number clicked on of any fieldif the style of the target = "scrolling" thenreturn ((item 2 of the clickLoc - top of target-4+scroll of target) ¬div textheight of target) + 1else-- clickLine for non scrolling fieldsreturn ((item 2 of the clickLoc - top of target - 4) ¬div textheight of target) + 1end ifend clickLinefunction selectTheLine whichLineput line whichLine of target into choiceif choice <> empty thenget offset(return & choice,target) + 1 --include the carriage returnselect char it to length(choice) + it of targetend ifreturn choiceend SelecttheLinefunction thisFolderPath -- returns the path to the current folderput stackPath() into stackFolderput "" into lastCharrepeat until lastChar = ":"delete last character of stackFolderput last character of stackFolder into lastCharend repeatreturn stackFolderend thisFolderPathfunction thisVolumePathput thisStackPath() into wholePathreturn char 1 to offset(":",wholePath) of wholePathend thisVolumePathfunction thisStackPathreturn the value of word 2 of long name of this stackend thisStackPathon Importif rect of fld "description" ≠ "258,116,509,336" then ZoomFieldsend "HideObjects" to this cdshow bg fld "source"put FilePath("TEXT","Choose a file to import") into fNameif fName = empty then exit Importgo this cdput empty into bg fld "source"open file fNamerepeatread from file fName for 30000if it = empty then exit repeatput SubstituteChar(tab, " ", it) after bg fld sourceend repeatshow bg btn "source"close file fNameend Importfunction SubstituteChar origChar, newChar, container--returns the given container with the original string--substituted in all cases for the given new str.repeatset cursor to busyput offset(origChar,container) into charPosif charPos = 0 then return containerput newChar into char charPos of containerend repeatend SubstituteCharon UpdateMenu-- update the menu on the first cardset lockscreen to trueset lockrecent to trueset lockmessages to trueput 0 into sourceCountput empty into theListgo cd 1 of bg "examples"repeat with cdNdx = 1 to the number of cds in this bgset cursor to busygo cd cdNdx of this bgput the short name of this cd into theNameif bg fld "source" ≠ empty thenput " **" after theNameadd 1 to sourceCountend ifput the number of cds of this bg into totalput (the number of this cd - 1) into whichput which & "/" & total into bg fld "card count"put theName & return after theListend repeatgo cd 1put theList into bg fld "list"put sourceCountunlock screenend UpdateMenuon CheckTitles-- scan throught the card title fields to make sure I haven't left any-- text in them (text is turned into bitmap to avoid ugly substituted-- text on systems without the proper font)lock screenset lockrecent to trueset lockmessages to trueput empty into theErrorsgo cd 1 of bg "examples"repeat with cdNdx = 1 to the number of cds in this bgset cursor to busygo cd cdNdx of this bgif bg fld "title" ≠ empty or bg fld "expl" ≠ empty then ¬put the short id of this cd & "," after theErrorsend re
